www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/admin_verify.asp

    <!-- #include file="common.asp" -->

<%
Response.Expires=-1
Dim cn,rs
set cn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
CreateConn cn,dbtype
rs.Open "select adminpass from supervisor",cn

if rs.EOF=false then
	if session.Contents("adminpass")<>rs(0) then
		Response.Redirect "admin_login.asp"
		Response.End
	end if
else
	Response.Redirect "admin_login.asp"
	Response.End
end if
rs.Close
cn.Close
set rs=nothing
set cn=nothing
%>